54bfd6f4-1800-4364-a37f-8c3961ea5768 7 15 12 decimal

&[DATE] &[TIME] - &[FILENAME]

source function
'hawe' 20200414 Ko x n R f Ko x n^* R x * x n^1 - x 1 - / * + :

Ko Ko :

constrain negative region λ 0.8164215 - :

# # root

<= a native Maple code, active in Smath but not documented.

w sol Ko x n R f w - t root : w 1 - x + (* - R x * 1 - x n^+ (* + Ko x n^* 1 - x + (* + 1 - x + / t root

w 1 - x + (* - R x * 1 - x n^+ (* + Ko x n^* 1 - x + (* + 1 - x + / 1 - x + (w - Ko x n^* + (* R x * 1 - x n^+ (* + 1 - x + / ≡

solve for variate 't'
that produces 'w' ordinate w t Sol w 1 - t + (* - R t * 1 - t n^+ (* + Ko t n^* 1 - t + (* + 1 - t + / 0 ≡ t 01 solve :

solving for 't' ... given ordinate 'w' Ko 1 : n 30 : R 300 : w 2062 : 14 mat

w t Sol 0.875

sanity 1 0.875 30300 f : 2062

=========== Solve on-line ... piecewise collect ===========

Ko x n R f Ko x n^* R x * x n^1 - x 1 - / * + :

Ko x 1201200 f x c * Ko x 60600 f x c * Ko x 30300 f x c * λ 100000 λ 10000 - 22 mat 10 + 1000 black 15 mat 19000 + 40 black 15 mat 61 sys

Ko 1 :

λ 0.8164215 - :

x c 1 λ x ≤ (x 1 ≤ (& cases :

Ko x 120 1200 f x c * Ko x 60 600 f x c * Ko x 30 300 f x c * λ 100000 λ 10000 - 2 2 mat 1 0 + 1000 black 1 5 mat 1 9000 + 40 black 1 5 mat 6 1 sys

ε 1015 -^:

wanted 5000 :

Ko u 1201200 f wanted ≡ Ko u 60600 f wanted ≡ Ko u 30300 f wanted ≡ 1000 u 60600 f wanted ≡ 1000 u 60300 f wanted ≡ 51 mat u 01 solve vectorize 0.8065 0.893 0.9587 0.8929 0.9448 51 mat

11 ε - 30300 f 9001